object FRelatorioPrevisaoRecebimentos: TFRelatorioPrevisaoRecebimentos
  Left = 0
  Top = 0
  Caption = 'Relat'#243'rio de Previs'#227'o de Recebimentos'
  ClientHeight = 543
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object lbl37: TLabel
    Left = 0
    Top = 0
    Width = 635
    Height = 32
    Align = alTop
    Alignment = taCenter
    Caption = 'Previs'#227'o de Recebimentos'
    Color = 16776176
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = 'Calisto MT'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = False
    ExplicitWidth = 330
  end
  object spl1: TSplitter
    Left = 0
    Top = 207
    Width = 635
    Height = 3
    Cursor = crVSplit
    Align = alTop
    ExplicitLeft = -126
    ExplicitWidth = 761
  end
  object cxgrdRecebimentos: TcxGrid
    AlignWithMargins = True
    Left = 3
    Top = 35
    Width = 629
    Height = 169
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    ExplicitLeft = -2
    ExplicitTop = 38
    object gdRecebimentos: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = ds1
      DataController.Filter.AutoDataSetFilter = True
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'cod_cliente'
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.GroupByBox = False
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.StyleSheet = DataModule1.cxStyleSheetTBVWGridTableViewStyleSheetDevExpress
      object cxgrdbclmnRecebimentosdata: TcxGridDBColumn
        Caption = 'M'#234's de Refer'#234'ncia'
        DataBinding.FieldName = 'data'
        Width = 114
      end
      object cxgrdbclmnRecebimentostipo: TcxGridDBColumn
        Caption = 'Tipo Parcela'
        DataBinding.FieldName = 'tipo'
        Width = 95
      end
      object cxgrdbclmnRecebimentostotalmensal: TcxGridDBColumn
        Caption = 'Valor Mensal'
        DataBinding.FieldName = 'totalmensal'
        Width = 79
      end
    end
    object cxgrdlvlRecebimentos: TcxGridLevel
      GridView = gdRecebimentos
    end
  end
  object cxgrd1: TcxGrid
    AlignWithMargins = True
    Left = 3
    Top = 213
    Width = 629
    Height = 327
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    ExplicitLeft = 8
    ExplicitTop = 216
    object gd1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = ds1
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'cod_cliente'
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsView.Footer = True
      Styles.StyleSheet = DataModule1.cxStyleSheetTBVWGridTableViewStyleSheetDevExpress
      object cxgrdbclmn1: TcxGridDBColumn
        DataBinding.FieldName = 'date_trunc'
        Width = 85
      end
      object cxgrdbclmn2: TcxGridDBColumn
        DataBinding.FieldName = 'sum'
      end
    end
    object cxgrdlvl1: TcxGridLevel
      GridView = cxgrdbchrtvwcxgrdvwrpstry1DBChartView1
    end
  end
  object dxPrinter1: TdxComponentPrinter
    CurrentLink = dxgrdrprtlnkPrinter1Link1
    PrintTitle = 'ControlPlan 2 - Previs'#227'o de Recebimentos'
    Version = 0
    Left = 112
    Top = 432
    object dxgrdrprtlnkPrinter1Link1: TdxGridReportLink
      PrinterPage.DMPaper = 9
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageSize.X = 210000
      PrinterPage.PageSize.Y = 297000
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportDocument.Caption = 'Previs'#227'o de Recebimentos'
      ReportDocument.Creator = 'ControlPlan'
      ReportTitle.AdjustOnReportScale = True
      ReportTitle.Text = 'ControlPlan 2 - Previs'#227'o de Recebimentos'
      OptionsFormatting.UseNativeStyles = True
      Styles.ContentEven = cxStyle1
      Styles.ContentOdd = cxStyle2
      BuiltInReportLink = True
    end
  end
  object dxEngController: TdxPSEngineController
    Active = True
    PreviewDialogStyle = 'Ribbon'
    Left = 176
    Top = 432
  end
  object cxStyleRepository1: TcxStyleRepository
    PixelsPerInch = 96
    object cxStyle1: TcxStyle
      AssignedValues = [svColor]
      Color = clRed
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor]
      Color = clWhite
    end
  end
  object cxgrdvwrpstry1: TcxGridViewRepository
    Left = 520
    Top = 376
    object cxgrdbchrtvwcxgrdvwrpstry1DBChartView1: TcxGridDBChartView
      DataController.DataSource = ds1
      DiagramLine.Active = True
      DiagramLine.Values.LineWidth = 3
      Legend.Position = cppBottom
      Title.Text = 'Valores a Receber por M'#234's'
      object cxgrdbchrtsrscxgrdbchrtvwcxgrdvwrpstry1DBChartView1Series1: TcxGridDBChartSeries
        DataBinding.FieldName = 'totalmensal'
        DisplayText = 'Total Mensal'
        Styles.Values = cxStyle1
      end
    end
  end
  object qry1: TZQuery
    Connection = DataModule1.Connection
    Active = True
    ReadOnly = True
    SQL.Strings = (
      
        'select  date_trunc('#39'month'#39',p.data_vencimento)as data , '#39'Contrato' +
        #39' as tipo, sum(valor_parcela)as  totalmensal  from  parcelascont' +
        'rato p'
      'where p.data_vencimento > CURRENT_DATE and p.data_pagto is null'
      'group by date_trunc('#39'month'#39',p.data_vencimento)'
      'union '
      
        'select  date_trunc('#39'month'#39',d.data_vencimento)as data, '#39'Despesas'#39 +
        ' as tipo , sum(valor_parcela)as totalmensal  from  parcelasdespe' +
        'sas d'
      'where d.data_vencimento > CURRENT_DATE and d.data_pagto is null'
      'group by date_trunc('#39'month'#39',d.data_vencimento)'
      ''
      'order by data'
      ''
      '')
    Params = <>
    Left = 477
    Top = 240
    object tblqry1data: TDateTimeField
      FieldName = 'data'
      ReadOnly = True
    end
    object tbqry1tipo: TMemoField
      FieldName = 'tipo'
      ReadOnly = True
      BlobType = ftMemo
    end
    object tblqry1totalmensal: TFloatField
      FieldName = 'totalmensal'
      ReadOnly = True
      currency = True
    end
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 477
    Top = 296
  end
end
